cond
*.eye5 0 >
*.refeye *.myeye !=
start
*.refveldx .dx store
*.refvelup 30 add .up store
stop

cond
*.eye5 50 >
*.refeye *.myeye !=
start
16 .shootval store
-1 .shoot store
*.refvelup .up store
stop

cond
*.eye5 0 =
*.refeye *.myeye = or
start
314 rnd .aimdx store
stop

cond
*.tiepres 0 !=
start
50 .repro store
stop

cond
*.waste 40 >
start
.backshot inc
-4 .shoot store
*.waste .shootval store
stop

cond
*.mkvirus 0 !=
start
*.mkvirus .delgene store
stop

cond
*.slime 300 <
start
100 .mkslime store
stop